home *** CD-ROM | disk | FTP | other *** search
/ Publication 50 / Publication_50_2003_Civitas_de_Disk_2_of_2_Side_B.d64 / bas5x5 1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  137b  |  11 lines
  1. 0 print"[147]"
  2. 10 a=14336
  3. 11 poke53272,29
  4. 20 forb=0to30
  5. 30 fori=0to4
  6. 40 forx=0to4
  7. 50 poke1024+i*40+x,peek(a+i*256+b*5+x)
  8. 60 nextx
  9. 70 nexti
  10. 80 nextb
  11.